home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
D-Demos
/
(c)d4.d64
/
lone ranger.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
11KB
|
384 lines
1 PRINT"[147]"
2 POKE53280,38:POKE53281,38
3 PRINT"[152] THE"
4 ZT = TI + 55
5 IF TI<ZT THEN 5
6 PRINT" LONE"
7 ZT = TI + 55
8 IF TI<ZT THEN 8
9 PRINT" RANGER"
10 PRINT" BY.
11 [153]" DAVE L. ROSEN"
12 [153] [199](8)
15 ZT [178] TI [170] 55
16 [139] TI[179]ZT [167] 16
19 [151]54296,15
20 [151]54277,96
21 [151]54278,35
25 [151]54276,33
30 [129]T[178]1[164]54[172]C:[130]
35 [135] A
40 [135] B
45 [135] C
50 [139]B[178][171]1[167] [151]54273,0:[151]54272,0:[137]230
55 [151]54273,A:[151]54272,B
60 [151]54276,16
65 [137]20
70 [131] 34,75,1,34,75,1,34,75,2
71 [131] 34,75,1,34,75,1,34,75,2
72 [131] 34,75,1,34,75,1,45,198,2
73 [131] 51,97,2,57,172,2
74 [131] 34,75,1,34,75,1,34,75,2
75 [131] 34,75,1,34,75,1,45,198,2
76 [131] 57,172,2,51,97,2,43,52,2
77 [131] 34,75,2
78 [131] 34,75,1,34,75,1,34,75,2
79 [131] 34,75,1,34,75,1,34,75,2
80 [131] 34,75,1,34,75,1,45,198,2
81 [131] 51,97,2,57,172,2
82 [131] 45,198,1,57,172,1,68,149,7
83 [131] 61,126,1,57,172,1,51,97,1
84 [131] 45,198,2,57,172,2,45,198,3
85 [131] -1,-1,-1
230 ZT [178] TI [170] 20
240 [139] TI[179]ZT [167] 240
250 [153]"LOAD"
260 [153]"YOU MAY LEAVE TONTO AND SILVER TO GO TO ANOTHER AVENTURE."
265 [153]"BY PRESSING THE @WAIT KEY"
270 [153]"WHEN YOU SEE PRESS RETURN TO CONTINUE."
280 ZT [178] TI [170] 700
290 [139] TI[179]ZT [167] 290
300 [153]"LOAD"
410 [153]:[153]:[153]
420 [153]"LET ME NOW TAKE YOU BACK "
430 [153]"TO YESTERYEAR WHEN LAW &CLOSE"
440 [153]"ORDER WAS HARD TO "
450 [153]:[153]
460 [153][163]4);"MAINTAIN AS DANGER "
470 [153][163]4);"AND EXCITMENT COULD "
480 [153][163]4);"BE FOUND AT THE LOCAL SALOON."
490 [153][163]4);"ONLY ONE MAN COULD MAINTAIN LAW & ORDER &THAT MAN WAS"
500 [153][163]4);"THE LONE RANGER"
510 [153]
520 [153][163]8);"PRESS RETURN TO CONTINUE"
530 [161] Z$
540 [139] Z$[178][199](64) [167] 11311
550 [139] Z$[179][177] [199](13) [167] 530
555 [153]"LOAD"
560 [153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]
570 [153]"CLOSEHI HO SLIVER AWAY!!!!!!!!!!CLOSE
580 ZT = TI + 120
590 IF TI<ZT THEN 590
600 PRINT"[147]"
610 PRINT:PRINT
620 PRINTTAB(8);"YOU AND TONTO ARE "
630 PRINTTAB(8);"TRYING TO GO AFTER "
640 PRINTTAB(8);"THAT ENEMY OF "
650 PRINTTAB(8);"YOURS,NAMED "
660 PRINTTAB(8);"BUTCH CAVENDISH."
670 PRINTTAB(8);"HE TOTALLY DESTOYED THE"
680 PRINTTAB(8);"SMALL TOWN OF"
690 PRINTTAB(8) "DRY GULCH"
700 PRINT:PRINT
710 PRINT"YOU" ", AGREE WITH TONTO "
715 PRINT
720 PRINT"THAT YOU MUST TRY TO "
730 PRINT"CATCH THAT SKUNK BUTCH CAVENDISH "
740 PRINT:PRINT
750 PRINTTAB(8);"PRESS RETURN TO CONTINUE"
760 GET Z$
770 IF Z$ =CHR$(64) THEN 11311
780 IF Z$ <> CHR$(13) THEN 760
800 PRINT"[147]"
810 PRINT:PRINT
820 PRINT"YOU DECIDE THAT YOU MUST EITHER"
825 PRINT
830 PRINTTAB(2);"A GO TO THE NEXT "
840 PRINTTAB(2);" TOWN&TRY TO GET [160][160]"
850 PRINTTAB(2);" PEOPLE TO HELP YOU"
855 PRINT
860 PRINTTAB(5);"B GO TO HIS HIDE OUT"
870 PRINTTAB(5);" AND WAIT FOR "
880 PRINTTAB(5);" HIM TO GO THERE "
890 PRINT
900 PRINTTAB(8);"C RIDE HARD ON THE"
910 PRINTTAB(8);" TRAIL AFTER CAVENDISH"
920 PRINTTAB(8);" AND HOPE FOR THE BEST"
925 PRINT
930 PRINT"PRESS RETURN TO CONTINUE"
935 GET Z$
940 IF Z$ = CHR$(64) THEN 11311
950 IF Z$ <> CHR$(13) THEN 935
960 PRINT"[147]"
970 PRINT:PRINT
971 PRINT"* * * * * * * * * *[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
972 PRINT"* * * * * * * * * *[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
973 PRINT"* * * * * * * * * *[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
974 PRINT"* * * * * * * * * *[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
975 PRINT"* * * * * * * * * *[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
976 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
977 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
978 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][152]"
1000 PRINT"A"
1010 PRINTTAB(4);"GO TO THE NEXT TOWN"
1020 PRINT
1025 PRINTTAB(6);"B"
1030 PRINTTAB(10);"GO TO HIS HIDE OUT"
1040 PRINT
1041 PRINTTAB(8);"C"
1042 PRINTTAB(12);"GO ON HIS TRAIL"
1043 PRINT" THIS IS YOUR LAST CHANCE TO LEAVE"
1044 PRINT"TONTO AND SILVER.IF YOU WANT TO"
1045 PRINT"STAY AND FIGHT FOR JUSTICE THEN"
1046 PRINT"PRESS RETURN."
1047 PRINT"IF YOU WANT TO CRAWL AWAY PRESS@[146] KEY"
1048 GET Z$
1049 IF Z$=CHR$(64) THEN 11311
1050 IF Z$<> CHR$(13) THEN 1048
1051 PRINT"[147]"
1052 PRINT:PRINT
1053 PRINT"[145][145][145]* * * * * * * * * *[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1054 PRINT"* * * * * * * * * *[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1055 PRINT"* * * * * * * * * *[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1056 PRINT"* * * * * * * * * *[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1057 PRINT"* * * * * * * * * *[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1058 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1059 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1060 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][152]"
1061 PRINT"A"
1062 PRINTTAB(4);"GO TO THE NEXT TOWN"
1063 PRINT
1064 PRINTTAB(6);"B"
1065 PRINTTAB(10);"GO TO HIS HIDE OUT"
1066 PRINT
1067 PRINTTAB(8);"C"
1068 PRINTTAB(12);"GO ON HIS TRAIL"
1090 PRINT"AFTER YOU MADE AND TYPED"
1091 PRINT"IN YOUR SELECTION;BETWEEN, "
1092 PRINT"(A),(B)OR(C) (EACH ONE IS CORRECT AT LEAST 1/3 OF THE TIME) "
1093 PRINT"THEN PRESS RETURN TO CONTINUE[146]"
1094 INPUTA$:IFA$<"A"ORA$>"C"THEN 1094
1095 X%=3*RND(1)
1096 X=(ASC(A$)-65)*3+X%
1097 IF X= 0 GOTO 11105
1099 IF X= 1 GOTO 11199
1100 IF X= 2 GOTO 11265
1101 IF X= 3 GOTO 11431
1102 IF X= 4 GOTO 11304
1103 IF X= 5 GOTO 11446
1105 IF X= 6 GOTO 1200
1106 IF X= 7 GOTO 11482
1107 IF X= 8 GOTO 11490
1108 GOTO1094
1132 $
1200 PRINT"[147]"
1205 PRINT:PRINT
1210 PRINT"YOU & TONTO ARE NOW "
1220 PRINT"RIDING HARD "
1230 PRINT"ON YOUR WAY TO BUTCH CAVENDISH'S HIDEOUT"
1240 PRINT"UNFORTUNATELY HE SAW YOU "
1241 ZT = TI + 800
1242 IF TI<ZT THEN 1242
1243 PRINT"[147]"
1260 PRINT"& WENT THE OTHER DIRECTION"
1270 PRINT"TO GO TO MEXICO. "
1280 PRINT"UNFORTUNATELY YOU AND TONTO DID NOT KNOWTHIS, SO YOU CONTINUED "
1291 ZT = TI + 1000
1292 IF TI<ZT THEN 1292
1293 PRINT"[147]"
1310 PRINT"TO WAIT AT HIS PLACE FOR A WEEK.YOU THENREALISED HE WAS NOT RETURNING
1320 [153]"THERE IN THE NEAR FUTURE. THIS MADE YOU AND TONTO LOOK LIKE"
1330 [153]"HAVE AS MUCH BRAINS AS "
1340 [153]"AS THE TOWN FOOL IN THE EYES "
1350 [153]"OF CHILDREN ALL OVER THE "
1360 [153]"THE WORLD "
1370 [137] 11308
11103 [153]"ONE ONE IN SIGHT FOR MILES AROUND"
11105 [153]"LOAD"
11106 [153]:[153]
11110 [153]"UNFORTUNATELY IT WAS AN OLD GHOST TOWN WITH"
11115 [153]"NO ONE IN SIGHT FOR MILES AROUND."
11120 [153]"YOU ALLOWED CAVENDISH TO SLIP THROUGH YOUR FINGERS THIS TIME,"
11124 [153]"BUT YOU'LL GET HIM NEXT TIME."
11125 [153]"YOU THINK ABOUT THIS AS YOU RIDE OFF INTO THE ..."
11126 [137]11218
11140 [153]"LOADWITH THE MIGHTY HOVES OF"
11145 [153]"SLIVER YOU ARE ABLE TO "
11150 [153]"CATCH BUTCH CAVENDISH "
11155 [153]"WITHOUT ONE SHOT BEING"
11160 [153]"FIRED."
11161 [129]I[178]1[164]3000:[130]I
11162 [153]"CLOSELOAD"
11165 [153]:[153]
11166 [153]"AFTER HE IS IN JAIL YOU"
11170 [153]"HEAR SOMEONE SAY"
11175 [153]"WHO WAS THAT MASKED MAN"
11176 [153]:[153]
11180 [153]"AND THEN A WISE MAN SAYS"
11182 [153]"HE IS THE GREAT"
11184 [153]"LONE RANGER!!!!"
11185 [139]O$[179][177][199](14)[137]9845
11199 [153]"LOAD"
11200 ZT [178] TI [170] 22
11201 [139] TI[179]ZT [167] 11201
11209 [153]"THE PEOPLE AT THE NEXT TOWN WERE A BUNCHOF COWARDS AND A GROUP"
11210 [153]"OF SISSIES. ALL YOU HEARD FROM THE PEOPLE OF THE TOWN WAS EITHER"
11211 [153]"NO COMMENT OR I DON'T WANT TO BE INVOLVED."
11213 [153]"ALL THAT YOU COULD DO WAS GET ON YOUR MIGHTY HORSE"
11214 [153]" SILVER"
11215 [137]11308
11218 ZT [178] TI [170]1500
11219 [139] TI[179]ZT [167] 11219
11220 [153]"LOAD":[151]53280,7:[151]53281,7
11221 [153]" FORSPC(SPC(SPC(SPC("
11222 [153]" FORSPC(SPC(SPC(SPC("
11223 [153]" FORSPC(SPC(SPC(SPC("
11224 [153]" FORSPC(SPC(SPC(SPC("
11225 [153]" (null)RIGHT$ "
11226 [153]" MID$(null) "
11227 [153]" (null)CONTABSGET(null) "
11228 [153]" CONTABSGET "
11229 [153]" (null)CONTABSGET(null) "
11230 [153]" SQR(null)STR$STR$RIGHT$(null) "
11231 [153]" CHR$**LEFT$ "
11232 [153]" (null) PEEK PEEK (null) "
11233 [153]" (null)(null)(null) STOP STEP (null) (null)(null)(null)(null)"
11234 [153]" VERIFYSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
11235 ZT [178] TI [170] 150
11236 [139] TI[179]ZT [167] 11236
11237 [153]""
11238 [151]53280,8:[151]53281,8
11239 [153]" "
11240 [153]" "
11241 [153]" VERIFYSPC(SPC(SPC(SPC("
11242 [153]" VERIFYSPC(SPC(SPC(SPC("
11243 [153]" (null)RIGHT$ "
11244 [153]" MID$(null) "
11245 [153]" (null)CONTABSGET(null) "
11246 [153]" CONTABSGET "
11247 [153]" (null)CONTABSGET(null) "
11248 [153]" SQR(null)STR$STR$RIGHT$(null) "
11249 [153]" CHR$**LEFT$ "
11250 [153]" PEEK PEEK (null) ""
11251 PRINT" [144] [169] [223] [216][216][216][216]"
11252 PRINT" [149][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
11254 GOTO11280
11257 POKE53280,0:POKE53281,0
11258 PRINT" * * * * *"
11259 PRINT" * * * *"
11260 PRINT" * * * "
11261 PRINT" HI HO SILVER AWAY!"
11263 GOTO 11336
11265 PRINT"[147]"
11266 ZT=TI+0
11267 IF TI<ZTTHEN11267
11268 PRINT"WHEN YOU GOT TO THE NEXT TOWN"
11269 PRINT"THE U.S. MARSHAL AND HIS FOLLOWERS"
11270 PRINT"WERE MORE THAN HAPPY TO HELP YOU "
11271 PRINT"AND TONTO TO CAPTURE BUTCH CAVENDISH."
11272 PRINT"WITH THE HELP OF THESE FINE GENTLEMEN"
11273 PRINT"BUTCH CAVENDISN WAS SOON CAUGHT."
11274 PRINT"WITH A MIGHTY "
11275 PRINT" HI HO SILVER AWAY!!!!!"
11276 PRINT"YOU RIDE OFF INTO THE..."
11277 ZT= TI+150
11278 IF TI<ZTGOTO11278
11279 GOTO11218
11280 ZT = TI + 150
11281 IF TI<ZT THEN 11281
11282 PRINT""
11283 POKE53280,12:POKE53281,12
11284 PRINT" "
11285 PRINT" "
11286 PRINT" "
11287 PRINT" [129][166][166][166][166]"
11288 PRINT" [213][201] "
11289 PRINT" [202][203] "
11290 PRINT" [207][154][182][161][208] "
11291 PRINT" [154][182][161] "
11292 PRINT" [206][154][182][161][205] "
11293 PRINT" [186][213][196][196][201][204] "
11294 PRINT" [199]**[200] "
11295 PRINT" [194] [194] "
11296 PRINT" [144] [169] [223] "
11297 PRINT" [149][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
11298 ZT = TI +150
11299 IF TI<ZT THEN 11299
11300 PRINT"[147]"
11301 GOTO11257
11304 PRINT"[147]"
11305 PRINT"BUTCH CAVENDISH DECIDED TO GO TO THE NEXT TOWN TO ROB THE BANK."
11306 PRINT"SINCE YOU WENT TO WAIT AT HIS HIDEOUT YOU COULD NOT STOP HIM."
11307 PRINT"ONCE YOU HEARD THE NEWS IT WAS TO LATE FOR YOU TO DO ANYTHING ABOUT
11308 [153]" SO LIKE A TRUE AMERICAN."
11309 [153]" YOU RODE OFF INTO THE..."
11310 [137]11218
11311 [153]"LOAD"
11312 [151]53280,0:[151]53281,0
11313 [153]"YOU DID NOT WANT TO COMPLETE THE CHALLENGE.YOU ARE NOT WORTHY OF"
11314 [153]"THE TITLE THE LONE RANGER."
11315 [153]"HAND IN YOUR ..."
11316 ZT[178]TI[170]500
11317 [139] TI[179]ZT [167] 11317
11318 [153]"LOAD"
11319 [151]53280,1:[151]53281,1
11320 [153]" STOP (null)LENLENLENLENRIGHT$ (null)LENLENLENRIGHT$"
11321 [153]" (null) (null) (null) (null)"
11322 [153]" (null)CLOSE (null)(null) (null)"
11323 [153]" (null) (null)"
11324 [153]" (null) (null) (null) (null)"
11325 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
11326 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"
11327 [153]" (null)SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)"
11328 [153]" (null)SPC(SPC((null)RIGHT$SPC(SPC(SPC(SPC(SPC((null)RIGHT$SPC(SPC(SPC((null)"
11329 [153]" (null)SPC(SPC(MID$(null)SPC(SPC((null)RIGHT$SPC(MID$(null)SPC(SPC(SPC((null)"
11330 [153]" (null)SPC(SPC(SPC(SPC(SPC((null) (null)SPC(SPC(SPC(SPC(SPC((null)"
11331 [153]" (null)SPC(SPC(SPC(SPC((null) (null)SPC(SPC(SPC(SPC((null)"
11332 [153]" MID$LENLENLEN(null) MID$LENLENLEN(null)"
11333 [153]" THE END"
11336 [153]" THIS PROGRAM"
11337 [153]" WAS DEDICATED TO "
11338 [153]" LOUISE MELIHEN "
11339 [153]" FOR ALL HER SUPPORT"
11340 [128]
11431 [153]"LOAD"
11434 [153]"YOU AND TONTO HAVE BEEN ON"
11435 [153]"THE TRAIL OF BUTCH CAVENDISH."
11436 [153]"SINCE CAVENDISH HAD A SLOW"
11437 [153]"HORSE, IT WAS VERY EASY FOR "
11438 [153]"YOU CATCH UP WITH HIM "
11439 [153]"WITH IN A MATTER OF "
11440 [153]"MINUTES."
11441 [153]"YOU THEN GAVE HIM TO THE LOCAL"
11442 [153]"U.S. MARSHALL."
11443 [137]11274
11446 [153]"LOAD"
11447 [153]"YOU ARE NOW RIDING HARD ON"
11448 [153]"THE TRAIL OF BUTCH CAVENDISH."
11449 [153]"AS LUCK WOULD HAVE IT, SILVER"
11450 [153]"SLIPPED IN THE MUD."
11451 [153]"BY THE TIME TONTO HELPED "
11456 [153]"YOU RESADDLE SILVER"
11459 [153]"CAVENDISH WAS TO FAR GONE"
11460 [153]"TO CATCH UP WITH."
11470 [153]"FOR NOW ALL THAT WENT THROUGH YOUR MIND"
11480 [153]"WAS HOW "
11481 [137]11120
11482 [153]"LOAD"
11483 [153]"THIS WAS NOT ONE OF YOUR"
11484 [153]"BETTER IDEAS AS YOU FELL"
11485 [153]"INTO AN AMBUSH."
11486 [153]"BY THE TIME YOU WERE ABLE"
11487 [153]"TO FIGHT OFF THE OUTLAWS"
11488 [153]"CAVENDISH WAS TO FAR GONE."
11489 [137]11460
11490 [153]"LOAD"
11491 [153]"YOU ARE NOW ON YOUR WAY TO"
11492 [153]"CAVENDISH'S HIDEOUT"
11493 [153]"VIA A SHORT CUT."
11494 [153]"YOU MADE IT TO HIS HIDEOUT"
11495 [153]"WITH MINUTES TO SPARE."
11496 [153]"HE WAS THEN EASILY CAUGHT"
11498 [153]"AS HE GAVE UP RIGHT AWAY."
11500 [137]11441